﻿''' <summary>
''' 设置开始-结束时间
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class SEdate
    Implements ICloneable

    Private m_StartDate As Date
    Private m_EndDate As Date
    ''' <summary>
    ''' 开始时间
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property StatrDate() As Date
        Get
            Return Me.m_StartDate
        End Get
        Set(ByVal value As Date)
            Me.m_StartDate = value
        End Set
    End Property
    ''' <summary>
    ''' 结束时间
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property EndDate() As Date
        Get
            Return Me.m_EndDate
        End Get
        Set(ByVal value As Date)
            Me.m_EndDate = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New SEdate
        obj.StatrDate = Me.m_StartDate
        obj.EndDate = Me.m_EndDate
        Return obj
    End Function
End Class
